DOpus Plus/DOpus Plus.iso/Enhancements/DEPlay/Module-Install

Text File | 1997-11-24 | 6.1 KB | 201 lines

; DEPlay - install script
;


(if (= @language "deutsch")
    (
        (set #welcome      "Willkommen bei der Installation des DEPlay-Moduls !")
        (set #wronginst    "Leider ist mindestens der Installer V42.9 nötig")
        (set #wrongkick    "Leider brauchst Du mindestens Kick/WB 2.x und eine 68020 CPU")
        (set #askdeli      "Zeige mir jetzt unbedingt den DeliTracker !" )
        (set #delihelp     "Du musst den Pfad zum DeliTracker wählen und ihn anklicken.\nBreche jetzt ab, wenn Du ihn umbenannt hast, benenne ihn wieder zurück und starte das Install-Script erneut.")
        (set #filetype     "Möchtest Du ein paar Dateitypen installieren ?")
        (set #filetypehelp "Du brauchst sie nicht unbedingt. Sie sind wie z.B. \"Module-PS3M\" benannt.")
        (set #button       "Möchtest Du die Beispiel-Knöpfe installieren ?")
        (set #buttonhelp   "Nötig sind sie nicht, aber eben gut als Beispiel.\nDu musst sie später von Hand in DOpus laden (sie heissen \"DEPlay-example\").\n")
        (set #ownconfig    "Möchtest Du eine eigene Config für den DeliTracker verwenden ?")
        (set #which        "Welche DeliTracker Config soll verwendet werden ?")
        (set #module       "Kopiere DEPlay-Modul")
        (set #settings     "Kopiere Config")
        (set #genie        "Kopiere NotifiyGenie")
        (set #types        "Kopiere DateiTypen")
        (set #butt         "Kopiere Knöpfe")
        (set #doc          "Kopiere Anleitung")
        (set #catalog      "Kopiere Katalog")
        (set #success      "Das DeliPlay-Modul wurde erfolgreich nach \"DOpus5:\" installiert. Viel Spass !")
    )
    (
        (set #welcome      "Welcome to the installation of the DEPlay module !")
        (set #wronginst    "Sorry, you need the Installer V43 to go on")
        (set #wrongkick    "Sorry, but you need at least Kick/WB 2.x and a 68020 CPU")
        (set #askdeli      "Show me the DeliTracker file. You must do this !!")
        (set #delihelp     "You should click at least on the file \"DeliTracker2\".\nYou must abort, if you have renamed the Delitracker.")
        (set #button       "Do you want to copy the DEPlay example buttons ?")
        (set #buttonhelp   "May be useful to have an example.\nYou must load them later manually (named \"DEPlay-example\").\n")
        (set #filetype     "Do you wish to install some module filetypes ?" )
        (set #filetypehelp "You need them not to use the DeliModule. They are named like \"Module-PS3M\".")
        (set #module       "Copy DEPlay module")
        (set #settings     "Copy settings")
        (set #genie        "Copy NotifyGenie")
        (set #types        "Copy filetypes")
        (set #butt         "Copy buttons")
        (set #doc          "Copy doc")
        (set #catalog      "Copy catalog")
        (set #success      "The DeliPlay.Module is successful installed to \"DOpus5:\" . Enjoy it.")
    )
)

;

(if (= @installer-version 0)
    (abort "Sorry, you need the Installer V43 to go on")
)

(set cpu (+ (database "cpu")))

(if     (OR (< (getversion) 37)
             (< cpu 68020)
        )
        (abort #wrongkick)
)

(set @default-dest "DOpus5:")
(set filetypes 0)

(welcome #welcome)

(set toolname "")
(while (NOT (patmatch (fileonly toolname) "DeliTracker2") )

       (set toolname
            (askfile
                 (prompt #askdeli)
                 (default "")
                 (help #delihelp "\n\n" @askfile-help )
            )
       )
)


(if @user-level
    (    (set filetypes
              (askbool
                   (prompt #filetype)
                   (help #filetypehelp)
              )
         )
         (set button
              (askbool
                   (prompt #button)
                   (help #buttonhelp)
              )
         )
         (if  (askbool
                   (prompt #ownconfig)
                   (help @askchoice-help)
              )
              (set ownconfig
                   (askfile
                       (prompt #which)
                       (default "")
                       (help @askchoice-help)
                   )
              )
         )
    )
    (    (set filetypes 1)
    )
)


(copyfiles
       (prompt #module)
       (source "Opus5/modules/")
       (dest "DOpus5:modules/")
       (all)

)

(textfile
       (prompt #settings)
       (dest "DOpus5:settings/DEPlay.list")
       (include "Opus5/settings/DEPlay.list")
       (append toolname)
)

(copyfiles
       (prompt #settings)
       (source "Opus5/settings/DP.cfg")
       (dest "DOpus5:settings/")
)

(if ownconfig
       (copyfiles
            (prompt #settings)
            (source ownconfig)
            (dest "DOpus5:settings/")
            (newname "DT.cfg")
       )
       (copyfiles
            (prompt #settings)
            (source "Opus5/settings/DT.cfg")
            (dest "DOpus5:settings/")
       )
)

(copyfiles
       (prompt #genie)
       (source "DeliTracker_II/DeliGenies/")
       (dest   (cat (pathonly(toolname)) "DeliGenies/"))
       (all)
)

(if filetypes
       (copyfiles
            (prompt #types)
            (source "Opus5/filetypes/")
            (dest "DOpus5:filetypes/")
            (all)
       )
)
(if button
       (copyfiles
            (prompt #butt)
            (source "Opus5/buttons/")
            (dest "DOpus5:buttons/")
            (all)
       )
)

(set languagedir (cat "Docs/" @language))
(set catalogdir (cat "Opus5/catalogs/" @language))

(if (exists languagedir (noreq))
    (
        (
            (copyfiles
                (prompt #doc)
                (source languagedir)
                (dest "DOpus5:Help/")
                (pattern "#?.guide#?")
                (files)
                (infos)
            )

            (if (exists catalogdir (noreq))
                (
                    (copyfiles
                        (prompt #catalog)
                        (source catalogdir)
                        (dest (cat "DOpus5:catalogs/" @language))
                        (all)
                    )
                )
            )
        )
    )
    (message "A doc and catalog for your native language is not available. You should copy a doc file of your choice to your DOpus5 docs manually.")
)

(exit #success (quiet))